home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
usenet
/
sources
/
volume90
/
kernel
/
makefstm.0
/
MakeFastMem.asm
next >
Wrap
Assembly Source File
|
1990-01-14
|
14KB
|
477 lines
OPT L-,C+,D-,O+ ; Devpac Amiga stuff, skip this
; for other assemblers
* MakeFastMem v1.0 891028 E. Lundevall
*
* A little program to provide folks with only chipmem some "fastmem"
* for programs that require fastmem (what's the point with that?!?).
*
INCDIR Assembler:include/
; INCLUDE mymacros.i ; You don't have this one
INCLUDE exec/exec_lib.i ; Library offsets in
INCLUDE intuition/intuition_lib.i ; those four files
INCLUDE libraries/dos_lib.i
INCLUDE workbench/icon_lib.i
INCLUDE exec/execbase.i
INCLUDE exec/alerts.i
INCLUDE exec/tasks.i
INCLUDE exec/memory.i
INCLUDE intuition/intuition.i
INCLUDE libraries/dosextens.i
INCLUDE workbench/startup.i
INCLUDE workbench/workbench.i
; Necessary macros from "mymacros.i"
jsrb MACRO
jsr _LVO\1(a6)
XREF.L _LVO\1
ENDM
push MACRO
movem.\0 \1,-(sp)
ENDM
pop MACRO
movem.\0 (sp)+,\1
ENDM
openlib MACRO
lea \1,a1
move.l \2,d0
jsrb OpenLibrary
ENDM
; Some symbol definitions
VERSION EQU 33 ; Use only v1.2 och higher
REQHEIGHT EQU 80 ; Height of the error requester
REQWIDTH EQU 300 ; Width of the error requester
MakeFastMem movea.l 4,a6
push.l d0/a0 ; Save d0 & a0 in case we are run from the CLI
suba.l a1,a1
jsrb FindTask ; Find the address to our own process
movea.l d0,a4
pop.l d0/a0
tst.l pr_CLI(a4) ; Check if we are running from the CLI
beq fromWB
********************** Code for CLI part *********************************
fromCLI subq.l #1,d0 ; Decrement argument length to strip LF
beq usage ; No argument given, tell user how to use us
move.b #0,0(a0,d0.l) ; Make argument string NULL-terminated
bsr asctodec ; Convert string to binary value
bmi usage ; Not a positive number, display usage
bsr CreateFast ; Do the real work
tst.l d0
bne .nosuccess ; Yack, something went wrong...
lea okmess(pc),a0 ; We did it! Bring the news to
moveq #okmesslen,d0 ; the world!
bra WriteMess
.nosuccess lea errmess(pc),a0 ; Hey, who stole the memory...;-)
moveq #errmesslen,d0
bsr WriteMess
tst.l d0 ; Did we succeed in writing message?
bne.s .nodos
moveq #10,d0
.nodos rts
usage lea usemess(pc),a0 ; Write the usage message
moveq #usemesslen,d0
bra WriteMess
********************** Code for Workbench part *****************************
fromWB lea pr_MsgPort(a4),a0 ; Wait for WB startup message
jsrb WaitPort
lea pr_MsgPort(a4),a0 ; Get the message...
jsrb GetMsg
push.l d0 ; ...and save it for later use
movea.l d0,a0
movea.l sm_ArgList(a0),a1 ; Get the first argument:
move.l wa_Name(a1),-(sp) ; Name of program
move.l wa_Lock(a1),-(sp) ; Lock to directory of program
openlib dosname,#VERSION ; Open dos.library
tst.l d0
beq nodos ; Hey, where's DOS??!?
movea.l d0,a6 ; Change current directory to
pop.l d1 ; the directory of our program
jsrb CurrentDir
movea.l a6,a1 ; Close dos.library
movea.l 4,a6
jsrb CloseLibrary
OpenIconLib openlib iconname,#VERSION ; Open icon.library
tst.l d0
beq noiconlib
movea.l d0,a6 ; Get the icon for our program
pop.l a0
jsrb GetDiskObject
tst.l d0
beq noobj
move.l d0,d7 ; Put away address to DiskObject
movea.l d0,a0
movea.l do_ToolTypes(a0),a0
lea tooltype(pc),a1 ; Search for ToolType 'FASTMEM'
jsrb FindToolType
tst.l d0
beq notooltype
movea.l d0,a0
movea.l a0,a1 ; Calculate the length of the string
moveq #-1,d0
.strlen addq.l #1,d0
tst.b 0(a1,d0.l)
bne.s .strlen
bsr asctodec ; Convert ASCII string to binary value
bmi nomemsize
push.l d0 ; Save memory size
bsr FreeDO ; Release the DiskObject
bsr CloseIconLib ; Ok, now close icon.libary
pop.l d0
bsr CreateFast ; Do the real work
tst.l d0
beq exitWB ; Yeah, we did it!
*
* Some error conditions, show an error requester
*
nocreatefast lea wberrmess(pc),a0
bsr ShowRequest
bra goodbye
noiconlib lea noiconlibmess(pc),a0 ; No icon.library available
bsr ShowRequest
bra goodbye
nodos ALERT (AG_OpenLib!AO_DOSLib) ; Hey, no dos.libary!!
bra goodbye ; This is NOT good...
noobj bsr CloseIconLib ; No icon for our program
lea noobjmess(pc),a0
bsr ShowRequest
bra goodbye
notooltype bsr FreeDO ; No FASTMEM tooltype
bsr CloseIconLib
lea notooltypemess(pc),a0
bsr ShowRequest
bra goodbye
nomemsize bsr FreeDO ; Release icon
bsr CloseIconLib ; Incorrect value for the
lea nomemsizemess(pc),a0 ; FASTMEM tooltype
bsr ShowRequest
goodbye moveq #100,d0
bra exitWB
**** Close icon.library *****
CloseIconLib movea.l a6,a1
movea.l 4,a6
jsrb CloseLibrary
rts
**** Exit from Workbench *****
exitWB jsrb Forbid ; Disable multitasking so that WB
pop.l a1 ; won't unload us before we're ready
jsrb ReplyMsg ; Get the original WB startup message
rts ; and reply to it, then exit
*****************************************************************************
* FreeDO - Do a FreeDiskObject
* Input: d7 - address to DiskObject
* a6 - address to IconBase
* Result: None
*****************************************************************************
FreeDO movea.l d7,a0 ; Release the allocated
jsrb FreeDiskObject ; resources for the icon
rts
***************************************************************************
* ShowRequest - display a requester with an error message
* Input: a0 - address to an IntuiText
* a6 - address to ExecBase
* Result: None
***************************************************************************
ShowRequest push.l d2/d3/a2/a3
push.l a0
openlib intuiname(pc),#VERSION
pop.l a0
tst.l d0
beq .nointui
movea.l d0,a6
movea.l a0,a1
suba.l a0,a0
lea darnmess(pc),a2
movea.l a2,a3
moveq #0,d0
moveq #0,d1
move.l #REQHEIGHT,d3
move.l #REQWIDTH,d2
jsrb AutoRequest
push.l d0
movea.l a6,a1
movea.l 4,a6
jsrb CloseLibrary
pop.l d0
.nointui pop.l d2/d3/a2/a3
rts
****************************************************************************
* CreateFast - Allocate a chunk of CHIPRAM and convert it to FASTRAM
* Input: d0 - Size of the wanted FASTRAM chunk.
* a6 - pointer to ExecBase
* Result: d0 - NULL if successfull
****************************************************************************
CreateFast push.l d2-d3
addq.l #8,d0 ; Adjust size for the mem chunk header
move.l d0,d3 ; Allocate the "fast" memory
move.l #MEMF_CHIP+MEMF_PUBLIC+MEMF_CLEAR,d1
jsrb AllocMem
move.l d0,d2
beq .error1
move.l #MH_SIZE,d0 ; Allocate space for a MemHeader
move.l #MEMF_CLEAR+MEMF_PUBLIC,d1
jsrb AllocMem
tst.l d0
beq .error2
lea MakeFastMem(pc),a0 ; Disconnect the DATA hunk
moveq #0,d1 ; This is for the name field
move.l d1,-4(a0) ; of the MemHeader.
move.l d0,a1
move.l d2,MH_FIRST(a1) ; Use the first 8 bytes in the "fast"
movea.l d2,a0 ; memory for a MemChunk
addq.l #8,d2
move.l d2,MH_LOWER(a1) ; Init the MemHeader as fastmem
move.w #MEMF_FAST+MEMF_PUBLIC,MH_ATTRIBUTES(a1)
; We have made one big chunk
subq.l #8,d3 ; Subtract the MemChunk size and
move.l d3,MC_BYTES(a0) ; store the actual free size
move.l d3,MH_FREE(a1)
add.l d2,d3 ; Add size and lower address to get
move.l d3,MH_UPPER(a1) ; the upper bound
moveq #NT_MEMORY,d0 ; Store the node type
move.b d0,LN_TYPE(a1)
lea name,a0
move.l a0,LN_NAME(a1) ; Store the address to the name
push.l a1
jsrb Disable ; Want to mess around by myself
pop.l a1
lea MemList(a6),a0 ; Add our memory node to the
ADDHEAD ; MemList in ExecBase
jsrb Enable ; Ok, let the others play
moveq #0,d0 ; We were successful, return 0 to
bra.s .fastfixed ; to say it's ok.
.error2 movea.l d0,a1 ; Trouble allocating memory, free
move.l d3,d0 ; the stuff we already have
swap d0 ; allocated
jsrb FreeMem
.error1 moveq #-1,d0 ; Error, return -1 to say it's not ok.
.fastfixed pop.l d2-d3
rts
*****************************************************************************
* WriteMess - Write a message to the CLI Window.
* Input: a0 - pointer to message
* d0 - length of message
* a6 - pointer to ExecBase
* Result: d0 - NULL if successful
*****************************************************************************
WriteMess push.l d2-d3
move.l d0,d3
push.l a0
lea dosname(pc),a1
jsrb OldOpenLibrary ; Open dos.library, any version
tst.l d0
beq.s .nomess
movea.l d0,a6
jsrb Output ; Write the appropriate message
move.l d0,d1 ; in the CLI-window we were run
pop.l d2 ; from.
jsrb Write
pop.l d2-d3
movea.l a6,a1
movea.l 4,a6
jsrb CloseLibrary ; Close dos.library
moveq #0,d0
.exitwrite rts
.nomess ALERT (AG_OpenLib!AO_DOSLib) ; No dos.library available!!!
moveq #100,d0 ; This is REAL bad...
bra .exitwrite
*****************************************************************************
* asctodec - Convert an ASCII string (NULL-terminated) to a binary value
* Input: a0 - pointer to ASCII string
* d0 - length of string
* Result: d0 - Binary value
*****************************************************************************
asctodec push.l d2
move.l d0,d2
subq.l #1,d2 ; We will use nr of characters as an
lsl.l #2,d2 ; offset
moveq #0,d1
move.l d1,d0
lea .Numbers(pc),a1 ; Get base address of offset table
.loop1 move.b (a0)+,d1
beq .finished
subi.b #$31,d1
bmi .zero
cmpi.b #NumBase-1,d1
bcs .loop2
moveq #-1,d0
bra .finished
.loop2 add.l 0(a1,d2.w),d0 ; Add value in table d1 times to d0.
dbra d1,.loop2
moveq #0,d1
.zero subq.w #4,d2
bra .loop1
.finished pop.l d2
rts
NumBase EQU 10
.Numbers dc.l 1,10,100,1000,10000,100000,1000000,10000000,100000000
****************** Some text & messages definitions ************************
dosname dc.b 'dos.library',0
iconname dc.b 'icon.library',0
CNOP 0,2
intuiname dc.b 'intuition.library',0
CNOP 0,2
tooltype dc.b 'FASTMEM',0
CNOP 0,2
errmess dc.b 'P-p-p-pleeeaase... I need more memory!',10,0
errmesslen EQU *-errmess
CNOP 0,2
okmess dc.b 'FastMem created!',10,0
okmesslen EQU *-okmess
CNOP 0,2
usemess dc.b 'Usage: MakeFastMem fastmemsize',10,0
usemesslen EQU *-usemess
CNOP 0,2
darntext dc.b 'Darn!',0
CNOP 0,2
noobjtext dc.b 'No icon available',0
CNOP 0,2
noiconlibtext dc.b 'No icon.library',0,0
CNOP 0,2
notooltypetext dc.b 'No FASTMEM ToolType',0
CNOP 0,2
nomemsizetext dc.b 'Error in FASTMEM value',0
CNOP 0,2
wberrtext dc.b 'Not Enough ChipRAM',0
CNOP 0,2
*********** IntuiText structures for the error requester messages **********
noiconlibmess dc.b 0,1
dc.b RP_JAM1,0
dc.w 75,20
dc.l 0
dc.l noiconlibtext
dc.l 0
notooltypemess dc.b 0,1
dc.b RP_JAM1,0
dc.w 60,20
dc.l 0
dc.l notooltypetext
dc.l 0
nomemsizemess dc.b 0,1
dc.b RP_JAM1,0
dc.w 52,20
dc.l 0
dc.l nomemsizetext
dc.l 0
noobjmess dc.b 0,1
dc.b RP_JAM1,0
dc.w 60,20
dc.l 0
dc.l noobjtext
dc.l 0
wberrmess dc.b 0,1
dc.b RP_JAM1,0
dc.w 68,20
dc.l 0
dc.l wberrtext
dc.l 0
darnmess dc.b 0,1 ; it_FrontPen, it_BackPen
dc.b RP_JAM1,0 ; it_DrawMode, it_KludgeFill00
dc.w 6,3 ; it_LeftEdge, it_TopEdge
dc.l 0 ; it_ITextFont
dc.l darntext ; it_IText
dc.l 0 ; it_NextText
SECTION foo,DATA
name dc.b 'expansion ram',0
END